Option Explicit
Sub K_Sample004()
    Dim myStr As String
    'Nwr
    myStr = "(1+2)*(3-4)"
    MsgBox myStr & "=" & Application.Evaluate(myStr)
End Sub
